Public Function ABOZIZO(X)
Ma = " "
Mi = " "
N = Int(X)
B = Val(Right(Format(X, "000000000000.00"), 2))
R = SABOZIZO(N)
If R <> "" And B > 0 Then result = R & Ma & "  " & B & Mi
If R <> "" And B = 0 Then result = R & Ma
If R = "" And B <> 0 Then result = B & Mi
ABOZIZO = result
End Function
Private Function SABOZIZO(X)
N = Int(X)
C = Format(N, "000000000000")
C1 = Val(Mid(C, 12, 1))
Select Case C1
Case Is = 1: Letter1 = ""
Case Is = 2: Letter1 = ""
Case Is = 3: Letter1 = ""
Case Is = 4: Letter1 = ""
Case Is = 5: Letter1 = ""
Case Is = 6: Letter1 = ""
Case Is = 7: Letter1 = ""
Case Is = 8: Letter1 = ""
Case Is = 9: Letter1 = ""
End Select
C2 = Val(Mid(C, 11, 1))
Select Case C2
Case Is = 1: Letter2 = ""
Case Is = 2: Letter2 = ""
Case Is = 3: Letter2 = ""
Case Is = 4: Letter2 = ""
Case Is = 5: Letter2 = ""
Case Is = 6: Letter2 = ""
Case Is = 7: Letter2 = ""
Case Is = 8: Letter2 = ""
Case Is = 9: Letter2 = ""
End Select
If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " " + Letter2
If Letter2 = "" Then Letter2 = Letter1
If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + ""
If C1 = 1 And C2 = 1 Then Letter2 = " "
If C1 = 2 And C2 = 1 Then Letter2 = " "
If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2
C3 = Val(Mid(C, 10, 1))
Select Case C3
Case Is = 1: Letter3 = ""
Case Is = 2: Letter3 = ""
Case Is > 2: Letter3 = Left(ABOZIZO(C3), Len(SABOZIZO(C3)) - 1) + ""
End Select
If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " " + Letter2
If Letter3 = "" Then Letter3 = Letter2
C4 = Val(Mid(C, 7, 3))
Select Case C4
Case Is = 1: Letter4 = ""
Case Is = 2: Letter4 = ""
Case 3 To 10: Letter4 = SABOZIZO(C4) + " "
Case Is > 10: Letter4 = SABOZIZO(C4) + " "
End Select
If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " " + Letter3
If Letter4 = "" Then Letter4 = Letter3
C5 = Val(Mid(C, 4, 3))
Select Case C5
Case Is = 1: Letter5 = ""
Case Is = 2: Letter5 = ""
Case 3 To 10: Letter5 = SABOZIZO(C5) + " "
Case Is > 10: Letter5 = SABOZIZO(C5) + " "
End Select
If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " " + Letter4
If Letter5 = "" Then Letter5 = Letter4
C6 = Val(Mid(C, 1, 3))
Select Case C6
Case Is = 1: Letter6 = ""
Case Is = 2: Letter6 = ""
Case Is > 2: Letter6 = SABOZIZO(C6) + " "
End Select
If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " " + Letter5
If Letter6 = "" Then Letter6 = Letter5
SABOZIZO = Letter6
End Function

Sub ASD()

End Sub
Public Function zizo(X)
N = Int(X)
If X > 50 Then result = (X - 50) * 0.006
If X > 250 Then result = 1.2 + (X - 250) * 0.0065
If X > 500 Then result = 2.825 + (X - 500) * 0.007
If X > 1000 Then result = 6.325 + (X - 1000) * 0.0075
If X > 5000 Then result = 36.325 + (X - 5000) * 0.008
If X > 10000 Then result = 76.325 + (X - 10000) * 0.003
zizo = result
End Function

Public Function momen(X)
N = Int(X)
If X >= 750 Then result = (X - 750) * 0.1
If X >= 1250 Then result = 50 + (X - 1250) * 0.1
If X >= 2000 Then result = 125 + (X - 2000) * 0.15
If X > 3666.67 Then result = 375 + (X - 3666.67) * 0.2
momen = result
End Function
